home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Magazine Collection 2001
/
Delphi Magazine Collection 20001 (2001).iso
/
DISKS
/
ISSUE15
/
TIPTRIX
/
LISTING1.PAS
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Pascal/Delphi Source File
|
1996-10-15
|
244 b
|
13 lines
uses {...} Controls;
...
Procedure CreateModal(FormClass: TFormClass);
begin
Screen.Cursor := crHourglass;
with FormClass.Create(Application) Do
Try
Screen.Cursor := crDefault ;
ShowModal
Finally
Free
end
end;